home *** CD-ROM | disk | FTP | other *** search
/ Czech Logic, Card & Gambling Games / Logické hry.iso / hry / Fish Fillets / script / wc / code.lua next >
Text File  |  2005-07-16  |  3KB  |  92 lines
  1.  
  2. -- -----------------------------------------------------------------
  3. -- Init
  4. -- -----------------------------------------------------------------
  5. local function prog_init()
  6.     initModels()
  7.     sound_playMusic("music/rybky10.ogg")
  8.     local pokus = getRestartCount()
  9.  
  10.  
  11.     -- -------------------------------------------------------------
  12.     local function prog_init_room()
  13.         local pom1, pom2, pomb1, pomb2 = 0, 0, false, false
  14.  
  15.         if pokus == 1 or random(100) < 50 then
  16.             room.uvod = 1
  17.             room.druha = random(2) + 2
  18.         else
  19.             room.uvod = 2
  20.             room.druha = random(2) * 2 + 1
  21.         end
  22.         room.omise = 0
  23.         room.timerdruhe = random(1000) + 500
  24.  
  25.         return function()
  26.             if no_dialog() and isReady(small) and isReady(big) then
  27.                 if room.timerdruhe > 0 then
  28.                     room.timerdruhe = room.timerdruhe - 1
  29.                 end
  30.                 pom1 = 0
  31.                 if room.uvod > 0 then
  32.                     pom1 = room.uvod
  33.                     room.uvod = 0
  34.                     if pokus ~= 1 then
  35.                         adddel(random(500) + 20)
  36.                     else
  37.                         adddel(random(20) + 20)
  38.                     end
  39.                 elseif room.timerdruhe == 0 then
  40.                     pom1 = room.druha
  41.                     room.timerdruhe = -1
  42.                     adddel(30)
  43.                 elseif room.omise == 0 and small.Y >= 19 then
  44.                     room.omise = 1
  45.                     addm(10 + random(30), "wc-m-vlezt")
  46.                 end
  47.                 if pom1 > 0 then
  48.                     switch(pom1){
  49.                         [1] = function()
  50.                             addm(0, "wc-m-prasecinky")
  51.                             addv(random(10), "wc-v-hygiena")
  52.                         end,
  53.                         [2] = function()
  54.                             addm(0, "wc-m-hrbitov")
  55.                             addv(random(5), "wc-v-coze")
  56.                             addm(random(10) + 5, "wc-m-nevis")
  57.                         end,
  58.                         [3] = function()
  59.                             addv(0, "wc-v-oblibene")
  60.                             addm(0, "wc-m-coze")
  61.                             addv(5, "wc-v-neznas")
  62.                             addm(5, "wc-m-sochar")
  63.                             addv(10, "wc-v-zmatek")
  64.                         end,
  65.                     }
  66.                 end
  67.             end
  68.         end
  69.     end
  70.  
  71.     -- --------------------
  72.     local update_table = {}
  73.     local subinit
  74.     subinit = prog_init_room()
  75.     if subinit then
  76.         table.insert(update_table, subinit)
  77.     end
  78.     return update_table
  79. end
  80. local update_table = prog_init()
  81.  
  82.  
  83. -- -----------------------------------------------------------------
  84. -- Update
  85. -- -----------------------------------------------------------------
  86. function prog_update()
  87.     for key, subupdate in pairs(update_table) do
  88.         subupdate()
  89.     end
  90. end
  91.  
  92.